home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / SUP-MOUS.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  42 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:19:47 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/sup-mouse.el
  3. ;;; emacs version 19.2.2 Lucid.
  4. ;;; bytecomp version 2.08;  2-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar sup-mouse-fast-select-window nil "\
  14. *Non-nil for mouse hits to select new window, then execute; else just select.")
  15. (byte-code "└┬─╞╚    ╩ ╠╬╨└ç" [0 mouse-left 1 mouse-center 2 mouse-right 4 mouse-2left 5 mouse-2center 6 mouse-2right 8 mouse-3left 9 mouse-3center 10 mouse-3right] 1)
  16. (fset 'sup-mouse-report #[nil "└┴!└┴!└─!╞ \"╚!    ╩  ╠ S=ë?¡à =╧    8S= ╤    8SY     @Z    A@Z½╣╙!ê\nU½à╒ ê¬ó\nU½à╫ ê¬ù\nU½æ deZ_┘ SÑbê┌yê█ ê╙ !é─½║╙!ê╒\nU½â¬ó\nU½ê╤▄ Z\\¬ö\nU½ìë▄ [╤\\\\\\╤Ѭü┌!ê╙ !é─âg\nU½ç▌ \"é─\nU½ï▌ \"ê▀α!é─\n!U½û▌ \"êèΓ`αvê`\"ê)πë$é─\nU½ìσ ê▌ \"êµ é─\n'U½Éσ ê▌ \"êΦΘ `\"é─\n*U½öσ ê▌ \"êΓΘ `\"êπë$¬·\nU½î▌ \"êπ$π ¬Φ\n+U¡Γ∞α!¬▌½í\nU½àφε!¬╬\nU½àφ∩!¬├\nU¡╜≡±!¬╕╙!ê2?««\nU½å▌ \"¬ó\nU½îσ ê▌ \"êµ ¬É\nU¡è▌ \"êπ$π .\nç" [sup-get-tty-num 59 buttons x 99 y sup-pos-to-window window window-edges edges selected-window old-window screen-height in-minibuf-p same-window-p 3 in-modeline-p 2 in-scrollbar-p select-window mouse-left scroll-up mouse-right scroll-down mouse-center window-width 0 what-cursor-position window-height sup-move-point-to-x-y mouse-2left kill-word 1 mouse-3left copy-region-as-kill yank this-command push-mark exchange-point-and-mark mouse-2right kill-region mark mouse-3right mouse-2center yank-pop call-interactively eval-expression execute-extended-command describe-function sup-mouse-report sup-mouse-fast-select-window] 6 "\
  17. This function is called directly by the mouse, it parses and
  18. executes the mouse commands.
  19.  
  20.  L move point          *  |---- These apply for mouse click in a window.
  21. 2L delete word            |
  22. 3L copy word          | If sup-mouse-fast-select-window is nil,
  23.  C move point and yank *  | just selects that window.
  24. 2C yank pop          |
  25.  R set mark            *  |
  26. 2R delete region      |
  27. 3R copy region          |
  28.  
  29. on modeline            on \"scroll bar\"    in minibuffer
  30.  L scroll-up            line to top        execute-extended-command
  31.  C proportional goto-char   line to middle    mouse-help
  32.  R scroll-down            line to bottom    eval-expression" nil])
  33. (fset 'sup-get-tty-num #[(term-char) "└┴ \n─Y½ô\n┼X½Ä ╞_\n─Z\\┴ ë¬i\n=¼ä╚╔!ê *ç" [0 read-char char num 48 57 10 term-char error "Invalid data format in mouse command"] 4 "\
  34. Read from terminal until TERM-CHAR is read, and return intervening number.
  35. Upon non-numeric not matching TERM-CHAR signal an error."])
  36. (fset 'sup-move-point-to-x-y #[(x y) "└    !ê┬ !ç" [move-to-window-line y move-to-column x] 2 "\
  37. Position cursor in window coordinates.
  38. X and Y are 0-based character positions in the window."])
  39. (fset 'sup-pos-to-window #[(x y) "└ ┴\n─ =¼º A@W¼û╞ 8Y¼Å @W¼ê╚ 8Y½è╔\n!└\n!¬S\n«é─ *ç" [window-edges nil window edges selected-window y 3 x 2 next-window] 3 "\
  40. Find window corresponding to screen coordinates.
  41. X and Y are 0-based character positions on the screen."])
  42.